RosettaCodeData/Task/Calendar---for-REAL-program.../Perl/calendar---for-real-program...

2 lines
40 B
Perl

$_=$ARGV[0]//1969;`\143\141\154 $_ >&2`