perl -alien -sex -Fiend 'do { my $elf; } or die "dirty alien"';