#!/usr/bin/perl -w
use strict;
use warnings;
use File::Basename;
my ($HOST,$PORT,$USER,$DEST,$WEB) = ('HOST', 22, 'USERNAME', '/usr/local/www/SOME_DIR', 'https://SOME_DOMAIN/SOME_DIR/',);
die ($0." src [dst]\n") unless scalar @ARGV > 0;
my ($src, $dst) = ($ARGV[0], defined($ARGV[1]) ? $ARGV[1] : basename($ARGV[0]));
die ("src doesn't exist") unless -e $src;
my $CLI = "scp -P $PORT \"$src\" \"$USER\@$HOST:$DEST/$dst\"";
$CLI =~ s/^scp/scp -r/ if -d $src;
die "Could not upload :(\n" if system($CLI) != 0;
print "Uploaded to $WEB/$dst\n";