#!/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";