住所から緯度経度を取得する

    my $file_name = $ARGV[0];
    chomp($file_name);//あああああ
    
    $lines = 0;
    open(FILE, $file_name) or die "Can't open `$filename': $!";
    while (sysread FILE, $buffer, 4096) {
        $lines += ($buffer =~ tr/\n//);
    }
    close FILE;
    print $lines;

---