$ perl -le " open my($fh), 1 or die$!; seek $fh, 1,0 or die$!; "

$ perl -le " open my($fh), 1 or die$!; seek $fh, -1,0 or die$!; "
Invalid argument at -e line 1.