Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print $date;
print $octet;

Date:   Monday, April 23, 2001  02:45 PM
Use of uninitialized value in print at C:\hack\hack.pl line 19.