#!/usr/bin/perl -I/usr/depot/lib/perl5

use strict;

use Net::PSYC qw(send_file);
use Getopt::Std;

Net::PSYC::setDEBUG(1);

my $target = pop @ARGV;
my $file = pop @ARGV;

send_file($target, $file) or die "sending the file failed: $!\n";

1;