#!/usr/bin/perl -w
use strict;
use POSIX qw(strftime);

print strftime("%m/%d/%y %H:%M:%S",localtime);
__END__
08/17/04 00:40:03