my $eol = {
    linux => "\n",
    unix  => "\n",
    dos   => "\r\n",
    apple => "\r",
    mac   => "\r",
}->{ $ARGV[0] } or usage();