#!/usr/bin/perl

my $in = $ARGV[0];
if (! defined $in) {
	die "Usage: $0 filename";
}
my $out = $in;
$out =~ s%..%~/captain/%;

if (! open $in_fh, '<', $in ) {
	die "Can't open '$in': $!";
}
	
if (! open $out_fh, '>', out ) {
	die "Can't write '$out': $!";
}

while (<$out_fh>) {
	print out $_;
}

close $out_fh;
close $in_fh;