my $start = time;
while(time < $start + 60) {
   # code goes here
}