Select Code to Download

#!/usr/bin/perl
use strict;
...
$rrconfig::availynglocotemp = '3.tmp';

update_lcrecord_now(qw(id0 roadname0 road0 loco0 owner0 inter0 assign0
+));