my $secs = 5;
my $url = 'http://foo.com/bar.html';
print qq{<meta http-equiv="refresh" content="$secs"; url=$url">\n};

##</code><code>##

print qq{<meta http-equiv="keywords" content="};
java->make_HTML_file;
print qq{">\n<meta http-equiv="refresh" content="0; url=$url"></head>\n};

##</code><code>##

#!/usr/bin/perl
package Foo;
open MYOUT, ">&STDOUT" or die "Can't dup STDOUT: $!\n";
sub say { print MYOUT "@_\n"}
package main;
open STDOUT, '>', "/dev/null" or die "open: $!\n";
print "nope";
Foo->say("oops");
__END__
Foo oops