print "argument = /$workingDir/ \n";
print "argument = /$inputFileVolume/ \n";
print "argument = /$inputFileDir/ \n";
print "argument = /'pwd'/ \n";

#it gives me 

argument = ///
argument = //
argument = //
argument = /'pwd'/


##</code><code>##

#!/usr/bin/perl

use strict;

use warnings;



use File::Spec;





my $inputFile = $ARGV[0];

my $backgroudFile = $ARGV[1];



#get name of the tester file and set it as the current working directory

my ($inputFileVolume,$inputFileDir,$name) = File::Spec->splitpath($inputFile);

my @workingDirArr = ($inputFileVolume,$inputFileDir);

my $workingDir = File::Spec->catdir(@workingDirArr);

chdir $workingDir or die "$0 failed to chdir to working dir $workingDir";



system ("sort -k 1,1 -k 4n -T $workingDir $name >tempLoc_$name")==0 or die "$0 failed to sort $name";

open (NAM, "tempLoc_$name") or die "$0 failed to open file tempLoc_$name";