1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl -w use strict; use Data::Dumper; use TLP; my $tlp = new TLP; $tlp->from_file("tlp/bar.tlp"); #print Dumper($tlp); $tlp->writeout();