#! /usr/bin/perl -wsT
use strict;

print "\$) = ", $), "\n";
print "\$( = ", $(, "\n";
print "\$< = ", $<, "\n";
print "\$> = ", $>, "\n";

__END__

=head1 OUTPUT
$) = 0
$( = 0
$< = 0
$> = 0