#!/usr/bin/perl -w

for (@ARGV) {
	if (/\.gz$/) {
		$n = $`;
		print "$n.gz > $n";
		`gunzip $_`;
		print " > $n.bz2";
		`bzip2 $n`;
		print "\n";
	} elsif (/\.tgz$/) {
		$n = $`;
		print "$n.tgz > $n";
		`gunzip $_`;
		print " > $n.tar.bz2";
		`bzip2 $n.tar`;
		print "\n";
	} else {
		print "Don't know what to do with $_\n";
	}
}