summaryrefslogtreecommitdiff
path: root/new-infra/test-tlp.pl
blob: 51a3a5f61c6cb730b3cbcd868c04f2f21065a46d (plain)
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();