my $line = 'TEXT=};print `ps`;print "Your machine is h4x0r3d!!$/";qq{Hello\nWorld!\n';
..

OUTPUT:
  PID  TT  STAT      TIME COMMAND
 5808  p0  S      0:00.02 _su (csh)
 5816  p0  S+     0:00.01 perl mylittleprogram.pl
 5817  p0  R+     0:00.00 ps
  149  v0  IWs+   0:00.00 /usr/libexec/getty Pc ttyv0
Your machine is h4x0red!!
Hello
World
#