sub PrintHead { print qq~Content-type: text/html\n\n~; BEGIN { my $homedir = ( getpwuid($>) )[7]; my @user_include; foreach my $path (@INC) { if ( -d $homedir . '/perl' . $path ) { push @user_include, $homedir . '/perl' . $path; } } unshift @INC, @user_include; } use CGI::Application::Plugin::Redirect; sub byebye { my $self = shift; return $self->redirect("http://www.godskingsandheroes.info/stamps/seek.cgi?id=2225", '301 Moved Permanently'); # Just trying to get an example working... } print qq~ PerlServices.net Free upload utility ~; }