Select Code to Download

sub strftime ($@) {
    my ($format,$second,$minute,$hour,$day,$month,$year) = @_;
...
}

print strftime( '%Y%m%d.%H%M%S', localtime() );