package main;
push (@INC, '/usr/local/perl');
$mydir = '/usr/local/perl';