#!/usr/bin/perl
use strict;
use Menu;

my $username=getlogin();
my $infile="/tmp/$username.inFile";

my ($script,$infile=mainMenu($infile);