$pwd = $ENV{'PWD'};
$file = "$pwd/tpsm*";
if (-e $file)
{
#do something
}