return \@verbose if($info eq 'verbose');
[download]

You are returning a reference to the array @verbose so your array could be altered or re-initilized outside this subroutine.

    my $time = scalar localtime();
    $time =~ /(\d\d:\d\d:\d\d)/;
    $time = $1;
[download]

That is usually written as:

    my $time = sprintf '%02d:%02d:%02d', ( localtime )[ 2,1,0 ];
[download]