#!/Perl/bin/perl
use strict;
my $t = 1