use File::Basename;
my $gds_file   = "data/myfile.soft";
my $base = basename($gds_file,".soft");

##</code><code>##

$ perl mycode.pl
Undefined subroutine &main::basename called at mycode.pl line 3.