change

 sub wait{
    my $time =@_;
    sleep $time;
 }
[download]

to

 sub wait{
    my ($time) =@_;
    sleep $time;
 }
[download]

As in this scalar context $time is being set to the size of @_ (i.e. 1) instead of the value.