#!/usr/local/bin/perl -w
use strict;
use Getopt::Std;

our( $opt_u );
getopt('u');
die "no u option passed\n" unless $opt_u;
print "username is $opt_u\n";