Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my $x = time; say $x;
...
1389999563
601076303
95

#!/usr/bin/env perl -l

...
    print 'DOB: ', $dob->strftime('%Y-%m-%d');
    print 'Age: ', int(($now->epoch - $dob->epoch) / ONE_YEAR);
}

Now: 2014-01-18
DOB: 2004-01-17
...
Age: 10
DOB: 2004-01-19
Age: 9