#!/usr/bin/perl
use strict;
package myNull;

sub TIEHANDLE {
	my $class = shift;
	my $fh = local *FH;
	bless \$fh, $class;
}

sub SEEK {
	my $class = shift;
	my $offset = shift;
	my $whence = shift;
	print "SEEK: offset = $offset\n";
}
1;

perl -e 'use myNull; tie *null, "myNull"; seek null, 5.5, 0;'

SEEK: offset = 5