#!/usr/bin/perl -l

use strict;
use warnings;
use String::BOM qw(strip_bom_from_file);

my $file = '/path/to/file';
print strip_bom_from_file($file);