#!/usr/bin/perl

$server = "d.minuslab.net";
$dir = "~/dml/files";
$href = "http://d.minuslab.net/files";

foreach $file ( @ARGV) {
	@chunks = split /\//, $file;
	$filename = $chunks[-1];
	`scp $file $server:$dir/$filename`;
	print "File drop: \033[1m$href/$filename\033[0m\n";
}