#!/usr/bin/perl -w

use strict;

my ($Local, $Remote);

$Local = q!localfile!;
$Remote = q!user@host:dir!;

system("rcp $Local $Remote");

exit(0);