Select Code to Download

use File::Basename;

my $scriptname = basename($0);

unless(basename($file) eq $scriptname)
{
  ...
}