#! /usr/bin/perl

# Test file to check certain perl characteristics
# 
# 

$name = $ARGV[0];
print "$name\n";
@root = split(/\./,$name);
print "$root[0]\n";
$filename = $root[0] . "SST";
print "$filename\n";


# open(OUTF,">$filename") or die "Can't open output file: $!\n";
# close(OUTF);

