#!/usr/bin/perl -s

our ($s,$user);
use warnings;
use strict;

$s ||= "search1.di.uminho.pt";
my $user = $ENV{USER} unless $user;

my $usage = "$0 -s=cluster.where file+";

my $file=join(" ",@ARGV);
die "$usage\n" unless $file;

`ssh $user\@$s mkdir -p bin`;
`scp $file $user\@$s:bin/`;


__END__

=head1 NAME

clusterinstall - install auxiliar programs in the cluster

=head1 SYNOPSIS

clusterinstall -s=cluster.where file+

=head1 DESCRIPTION

Copy files to  C<$user@remote.machine/bin/>

=head2 Option

 -user=name          Username in the cluster (default $USER)
 -s=remote.machine   remote machine

=head1 AUTHOR

J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

clusteriza.pl

perl(1).

=cut