#!/usr/bin/perl

# timestamp.pl
# GPL. Duh.

($sec,$min,$hour,$mday,$mon,$year,$wday,$isdst) = gmtime(time);

printf("%.2i%.2i%.2i%.2i%.2i\n",$year+1900,$mon+1,$mday,$hour,$min);

# End of timestamp.pl