Select Code to Download

my $date1 = "2006/01/03 03:59:59:671";
my $date2 = "2006/01/03 04:00:00:562";

$date1 =~ s/://g;
$date2 =~ s/://g;
my $ordermilliseconds = $clsendtimestamp - $clrectimestamp;
my $ordersecs = $ordermilliseconds / 1000;