#!user/local/perl
use strict; use warnings; 
use Cwd;