perl -MCGI -e 'my $q = CGI::new(); open CGI, "~/foo.txt";'