Archive

file: potd.pl
20: my $home       = dir( File::HomeDir->my_home );
21: my $blio       = $home->subdir(qw(privat domm.plix.at));
22: my $potd_src   = $blio->subdir(qw( src potd ));
23: my $target_img = $potd_src->file( $basename . '.jpg' );
24: my $target_txt = $potd_src->file( $basename . '.txt' );
25: if ( -e $target_img ) {
26:     say "target $basename.jpg already exists, aborting";
27:     exit;
28: }

Path::Class