#!/usr/local/bin/perl -w -i.bak
#macc auto format
use warnings;
use strict;
use Shell;

my ($file);
print "Enter File Name to be converted.\n";
print "File should be in this direstory.\n";
$file = <STDIN>;
open(IN, $file) or die "The file $file". "is not present.\n";
system qw "perl /Users/james/perlstuff/macc/macc1 $file";