#!/usr/bin/perl

foreach(@ARGV) {
  $file = $_;
  if(/(.*)\.gz/) {
    # .gzでファイル名が終っていたら、一応、展開を試みる
    $err=`gunzip $_`;
    if($err ne "") {
      # ほんとにgzipファイルだった
      $file = $1;
      print "$file";
    } else {
      $err=`mv $file $1`;
      $file = $1;
    }
  }
  $err = `bzip2 $file`;
}