Select Code to Download

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

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

Now I'm there
Now I'm here

Now I'm here
Now I'm there

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

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

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

Now I'm here
Now I'm there