#!/usr/bin/perl
# file test
use Foo;
print "Statement 1 at line 4\n";
print "Statement 2 at line 5$/";
print "Call to sub x returns ", &x(), " at line 6.\n";
print "time array '@{[Foo::slt(1614293354)]}' at line 7$/";
print "time scalar '".scalar(Foo::slt(1614293354))."' at line 8\n";

exit 0;
sub x {
  print "In sub x at line 12.\n";
  return 13;
}
END { print "end at line 15\n" }