make a dot file out of lsmod's output

foo.pl

#!/usr/bin/perl -n
BEGIN { print "digraph modules {\n" } 
if(/^([^[:space:]]+).*\s([^[:space:]]+)$/) {
    print "# $1 -> $2\n"; 
    for (split /,/,$2) { 
        print "    $1 -> $_;\n";
    }
} 
END { print "}" }