use strict;
    use warnings;

    my $offset = 1;

    # create a file handle from the file name

    open my $fh, '<', $filename or die $!;

    # call seek, with the new file handle we just created

    seek $fh, $offset, 0 or die "Report seek error,           
    offset:$offset - $!";

##</code><code>##

    
seek "$fh", $offset, 0 or die "Report seek error,           
    offset:$offset - $!";