#!/usr/bin/env perl

print "HELLO\r\n";

$program_name = "usbl_parser";

$routefile = $ARGV[1];
open(USBL,"$routefile") || die "Cannot open input usbl file: $routefile\r\n$program_name aborted\r\n";