[ strider@isengard[pts/3] (16:07) ~/old-homedir ]
% perl5.8.0 -e '$0 = "blork"; system( "ps -auxw" ); ' | grep blork 
strider   2561  0.0  0.4  2632 1036 pts/3    S    16:07   0:00 perl5.8.0 -e $0 = "blork"; system( "ps -auxw" ); 
strider   2563  0.0  0.1  1400  436 pts/3    S    16:07   0:00 grep blork

[ strider@isengard[pts/3] (16:07) ~/old-homedir ]
% perl5.6.1 -e '$0 = "blork"; system( "ps -auxw" ); ' | grep blork 
strider   2564  0.0  0.3  2448  968 pts/3    S    16:07   0:00 blork
strider   2566  0.0  0.1  1400  436 pts/3    S    16:07   0:00 grep blork