usr207@cvs-srv:~/perl> cat dollar_null.pl
#!/usr/bin/perl
use strict;
use warnings;
print "Hier laeuft das Skript '$0'\n";
sleep 2;
system('ps -f');
$0 = "chrrrrrchrrrrchrrrr";
print "Hier laeuft das Skript '$0'\n";
sleep 2;
system('ps -f');
$0 = "tschuess";
print "Das wars dann von '$0'\n";
system('ps -f');

usr207@cvs-srv:~/perl> dollar_null.pl
Hier laeuft das Skript './dollar_null.pl'
UID        PID  PPID  C STIME TTY          TIME CMD
usr207    2173  2172  0 11:42 pts/6    00:00:00 /bin/bash
usr207    2764  2173  3 13:48 pts/6    00:00:00 /usr/bin/perl ./dollar_null.pl
usr207    2765  2764  0 13:48 pts/6    00:00:00 ps -f
Hier laeuft das Skript 'chrrrrrchrrrrchrrrr'
UID        PID  PPID  C STIME TTY          TIME CMD
usr207    2173  2172  0 11:42 pts/6    00:00:00 /bin/bash
usr207    2764  2173  1 13:48 pts/6    00:00:00 chrrrrrchrrrrchrrrr
usr207    2766  2764  0 13:48 pts/6    00:00:00 ps -f
Das wars dann von 'tschuess'
UID        PID  PPID  C STIME TTY          TIME CMD
usr207    2173  2172  0 11:42 pts/6    00:00:00 /bin/bash
usr207    2764  2173  1 13:48 pts/6    00:00:00 tschuess
usr207    2767  2764  0 13:48 pts/6    00:00:00 ps -f
usr207@cvs-srv:~/perl>