system(
    q{perl},
    q{-lane}.q{print "John's";},
);