#!/usr/bin/perl

sub usage {
    if (@_) { 
	my $msg = "@_";
	$msg .= "\n" unless substr($msg, -1) eq "\n";
	warn "$0: @_\n";
    }
    die "usage: $0 filename\n";
} 

usage() unless @ARGV == 1;

$BASEDIR = 
$src = shift;

die "$0: No file `$src': $!" unless (-e 
