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: }
Set up a lot of directories and files