### V01.pl
no warnings; print "ok\n";

### V02.pl
use 5.006; print "ok\n";

### V03.pl
our $x = 1; print "ok $x\n";

### V04.pl
my $x; my $y = $x // 1; print "ok $y\n";

### V05.pl
say "hi";

### V06.pl
use constant FOO => 1; print "ok ", FOO, "\n";

### V07.pl
use constant { A => 1, B => 2 }; print "A=", A, " B=", B, "\n";

### V08.pl
my $re = qr/b+/; print "ok\n" if "abbbc" =~ $re;

### V09.pl
print "ok\n" if "abc\n" !~ /c\z/ && "abc" =~ /c\z/;

### V10.pl
print "ok\n" if "foobar" =~ /(?<=foo)bar/;

### V11.pl
print sprintf("%vd", "1.22.333"), "\n";

### V12.pl
sub foo { 1 } print "ok\n" if exists &foo;

### V13.pl
binmode(STDOUT, ":utf8"); print "ok\n";

### V14.pl
use utf8; print "ok\n";

### V15.pl
print "[", (defined($^V) ? "defined" : "undef"), "]\n";

### V16.pl
use File::Spec; print "ok ", File::Spec->catfile("a","b"), "\n";

### V17.pl
use File::Temp; print "ok\n";

### V18.pl
use Scalar::Util; print "ok\n";

### V19.pl
use List::Util; print "ok\n";

### V20.pl
use Data::Dumper; print "ok\n";

### V21.pl
use CGI; print "ok\n";

### V22.pl
use CGI; print "CGI $CGI::VERSION\n";

### V23.pl
use Digest::MD5; print "ok\n";

### V24.pl
use Storable; print "ok\n";

### V25.pl
use IO::File; print "ok\n";

### V26.pl
open(T, ">/tmp/v26.txt") or die; print T "a\n0"; close(T);
open(T, "/tmp/v26.txt") or die; my $n = 0;
while (my $line = <T>) { $n++; }
close(T); unlink("/tmp/v26.txt");
print "lines seen: $n\n";

### V27.pl
my %h = (a => 1, b => 2, c => 3); my %s = %h{"a","b"}; print "ok\n";

### V28.pl
sub by_num { $a <=> $b }
my @x = sort by_num (10, 9, 100, 1);
print "@x\n";