#!/usr/bin/perl -w

use strict;

use Getopt::Std;

$Getopt::Std::opt_u = 0;

getopt('u');

print "username is $Getopt::Std::opt_u\n";