#!/usr/bin/perl

use strict;
use Net::TFTPd;

my $tftpdOBJ = Net::TFTPd->new('RootDir' => './')
		or die "Error creating TFTPd listener: %s\n", Net::TFTPd->error;

my $tftpRQ = $tftpdOBJ->waitRQ(100)
	or die "Error waiting for TFTP request: %s\n", Net::TFTPd->error;
          
$tftpRQ->processRQ()
	or die "Error processing TFTP request: %s\n", Net::TFTPd->error;
                
printf "%u bytes has been transferred\n", $tftpRQ->getTotalBytes() || 0;