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

open(FILE, ">", "sparse") || die "unable to open for write\n";

print FILE "some stuff";
seek(FILE,1000000,0);
print FILE "more stuff";
close FILE;