#!/usr/bin/perl
use strict;
use warnings;
print "Creating a file with the numbers 0-9.\n";
open FILE, "+>file.txt" or die "Unable to open file: $!\n";
print FILE "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n";
close FILE or die "Unable to open file: $!\n";
print "Printing the third item:\n";
seek( FILE, 4, 0 );
my $in = <FILE>;
print "$in";
print "Printing the rest of the file:\n";
print while ( <FILE> );
close FILE or die "Unable to close file: $!";
|