#!/usr/bin/perl
if (!defined $ARGV[0] || $ARGV[0] eq '') { 
   exec('ssh',$0) 
}
else { 
   exec('ssh',"$ARGV[0]\@$0") 
}