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