use Time::Local;

my $string = '20060718';
my ($year,$month,$day) = $string =~ /(\d{4})(\d{2})(\d{2})/;

my $time = timelocal(0,0,0,$day,$month-1,$year-1900);
print $time;