Select Code to Download

    $ bc

    2002-1601
...

    401*365*24*60*60*10^7
    126459360000000000

    #!/usr/bin/perl -wl

    use strict;
...
    Prints:

    2002 6 28 12 51 41