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