$tid = 20;  # or any other 2 digit int
$p->{P_BATS}     = 'R';  # or 'L','S'
$p->{P_THROWS}   = 'R';  # or 'L'
$p->{P_STATUS}   = 'A';  # or 'D','I','M'
$p->{P_PLAYERID} = 1846404;  # or any other int up to 10 digits