#!/usr/bin/env perl
use strict; use warnings;
use vars qw($version $program);
sub init();
init();
my $y=3;
sub init() {
use File::Basename;
$program = basename($0); # Who am I today, anyway?
$version='1.0';
}
#!/usr/bin/env perl
use strict; use warnings;
use vars qw($version $program);
sub init();
init();
my $y=3;
sub init() {
use File::Basename;
$program = basename($0); # Who am I today, anyway?
$version='1.0';
}