use strict;
use warnings;

use if (defined $ARGV[0] && $ARGV[0] eq "angshuman"), 'Gash';
use if (@ARGV == 0), 'File::Basename';

# Now use File::Basename or Gash subroutine calls

my $file = basename($0);
print "$file\n";