use Force qw(-midiclorians -jarjar);

my $vader = fork;
noooooo()
    unless $vader;  # I am your father

sub noooooo {
    hang_there_for_a_while();
    exit;           # to the Millenium Falcon
}