#!/usr/bin/perl -w
use strict;

seek(STDOUT,14,0);
print "Now I'm there\n";
seek(STDOUT,0,0);
print "Now I'm here\n";

##</code><code>##

Now I'm there
Now I'm here

##</code><code>##

Now I'm here
Now I'm there

##</code><code>##

#!/usr/bin/perl -w
use strict;

seek(STDOUT,14,0) or warn $!;
print "Now I'm there\n";
seek(STDOUT,0,0) or warn $!;
print "Now I'm here\n";

##</code><code>##

Illegal seek at foo.pl line 4.
Now I'm there
Illegal seek at foo.pl line 6.
Now I'm here

##</code><code>##

Now I'm here
Now I'm there