perl tstcmd