#!/usr/bin/perl
use strict;
use warnings;
use strict 'vars';
use Getopt::Std;

#Setting options
# u:username
# h:hostname
# p:password
# k:SSH Key
getopts("u:h:p:k:");

package opts;
our ($opt_u, $opt_h);

#### TEST SECTION ###
print $opts::opt_u;