import Language.Perl5

main :: IO ()
main = withPerl5 $ do
    putStrLn =<< eval "qq[1..1]"
    eval "print qq[ok 1\n]"