#!/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;