#!/usr/bin/perl -w
use strict;
$|++;

print "foo!\n";
goto "";
print "Bar!\n";
print "baz!\n";