use strict;
use warnings;

my $offset = 1;

# create a file handle from the file name

open my $fh, '<', 'DCMFReport.txt' or die $!;

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

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