Archive
file: potd.pl 14: my $day_offset = defined $ARGV[1] ? $ARGV[1] : 1; 15: my $date = Time::Moment->now->plus_days($day_offset); 16: my $basename = $date->strftime("%Y-%m-%d"); 17: say "Creating POTD for $basename, ok?"; 18: my $ok = <STDIN>;
$day_offset