my $obj = $XRawfile->Open("$rawFile"); my $filename = $obj->GetFileName(); print "the file is: $filename\n";