#!/usr/bin/env perl
use strict;
use warnings;
$/=undef;
open my $fh, "<", "test.in";
my $file = <$fh>;
if ($file =~ m/^#/) {
  print "process me!\n";
}