#!/usr/bin/perl -w
use strict;
my ($module)=@ARGV or die "Usage: $0 <absolute path to module>\n";
open (MODULE, $module) or die "Can't open $module: $!\n";
while (<MODULE>) {
  print if /^#/;
}