#!/usr/bin/perl


use FTN::Pkt;
#use Exporter;

my $pkt = new FTN::Pkt (
    fromaddr => '2:467/4.1',
    toaddr   => '2:467/888',
    password => 'BORZTANK',
    inbound  => '/var/spool/ftn/inbound'
);

my $msg = new FTN::Msg(
    fromname => 'Ruslan Suleimanov',
    toname   => 'Ruslan Suleimanov',
    subj     => 'Hello',
    text     => "Hi, Poupa!\n\nHow do you do?\n\n--\nTest",
    fromaddr => '2:467/4.1',
    origin   => 'My cool origin',
    tearline => 'Skubidu teraline',
    area     => '888.TEST',
    reply    => '2:467/4.1 fedcba987',
    date     => 1661803825,                    # unixtime format
    pid      => 'Super-Duper Editor v0.02',
    tid      => 1
);
$pkt->add_msg($msg);
$pkt->write_pkt();