Select Code to Download

$url =~ m!/([^/]+)$!
    or die "Couldn't find last element of '$url'";
my $FileName = $1;
print $FileName;