#!/usr/bin/perl

use strict;
use warnings;

$0 = 'The phantom strikes again - so ha!';
sleep 60;

##</code><code>##

$ ./phantom.pl
$ ps x
...
10732 pts/5    S+     0:00 The phantom strikes again - so ha!