Select Code to Download

sub spin {
my ($arg) = @_;
...
} 
print " \n";
}

my $dir;
my $pattern = $version; 
...
             if ($_ =~ /\Q$pattern/) { $dir = $_; last           OUTER
+; } 
}
}

copy ("$source", "$destination") or die "Failed to copy setup file\n";