use File::Basename;

my $scriptname = basename($0);

##</code><code>##

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