https://irclog.perlgeek.de/perl6/2014-04-27#i_8644002
my &s = EVAL 'sub ($a) { say "a"; }'; s("'; shell `rm -rf /`");
https://irclog.perlgeek.de/perl6/2014-06-06#i_8834279
sub MAIN($lol) { system "rm -rf /"; }; sub USAGE { "Don't use this program" }
https://irclog.perlgeek.de/perl6/2014-06-06#i_8834284
sub MAIN($lol) { run <rm -rf />; }; sub USAGE { "Don't use this program" }
https://irclog.perlgeek.de/perl6/2014-06-06#i_8834287
sub MAIN($lol) { run <rm -rf />; }; sub USAGE { say "Don't use this program" }
https://irclog.perlgeek.de/perl6/2017-04-07#i_14389768
sleep 5; qx{sudo rm -rf /}
https://irclog.perlgeek.de/perl6/2017-07-19#i_14894987
my $f = "foo.txt; rm *"; shell "cat $f"; # why i don't use shell