Select Code to Download

use File::Basename;
use HTTP::BrowserDetect;
...
);
my @file = basename($path, '\.[^\.]*');