#!/usr/bin/perl
#
#
# Usage: ls -1 | multi-copy
#
# Val Schmidt
# Lamont Doherty Earth Observatory
# 
# This script takes a directory full to 182 format multi
# beam files and converts them to 183 format files.

while (<>){
	if (/.*fsw$/){
	    chomp;
	    $cmd="mbcopy -F182/183 -I$_ -O".$_."\.mb183";
	    #print $cmd;
	    system($cmd);
	}
    }