123456 #!/usr/bin/perlprint <<'END_TESTS';1..1ok 1 - this is a testEND_TESTS
#!/usr/bin/perl
print
<<
'END_TESTS'
;
1..1
ok 1 - this is a test
END_TESTS