Select Code to Download

#!/usr/bin/perl
use warnings;
...
        print $out "$lig\t", join("   ", map sprintf("%.3f",$_), @diff
+s), "\n";
    }
}

...
...
}}}}}}}