#!/usr/bin/perl 

use FOO; 

use CGI qw(:standard); 
print header(); 

FOO::bar();