($fName, $extension) = split (/\./, $FullFileName);
print scalar $fName;