#!/usr/bin/perl

# lint for mole
# a tool to scan mole files for suspicious constructs

$line = 1;
sub msg{
    $error = shift;
    print "-:".$line." ".$error."\n";
    exit(1);
}

while(<>){
    if (m/,/) {msg ("comma detected");}
    $line++;
}