#!/usr/bin/perl

use DBI;
use strict;
use POSIX;
use WWW::Curl::Easy;
use JSON;
use Config::Tiny;
use Data::Dumper;
use Cwd;
use URI;
use POSIX qw(strftime);
#use Dinstar;
use CGI qw/:standard/;


for( my $i= 300; $i < 320; $i++ ) {
   printf( "$i\n" );
}
=begin
my $text = "Autotest  1 0D";
printf( "%s\n", substr($text,0,8) );

if( substr($text,8) eq "Autotest" ) {

   my $gw = int(substr($text,9,2));
   my $port = int(substr($text,11,2));
   my $slot = substr($text,13,1);
   printf( "Autotest ACK: GW: %d. Port: %d%s", $gw,$port,$slot );
}
=cut