#! /tools/bin/perl

require '/usr/www/push/php/scripts/auth.pl';

my $source=shift;
my $dest=shift;
my $machine="fed1";
##################################################
my $scp="/tools/bin/scp -C";

&auth();
$cmd="$scp $source bd\@$machine:$dest";
#print "$cmd\n";
system($cmd);