#!/usr/bin/perl

use strict;

use lib '/home/linkssql/public_html/cgi-bin/admin';
use Links qw/$IN $DB $CFG/;
use CGI::Carp qw(fatalsToBrowser);

Links::init('/home/linkssql/public_html/cgi-bin/admin');

my $data;
open(GRAB, "NET_data.txt") || die "Error reading NET_data.txt. Reason: $!";
while (<GRAB>) {

my $_hash;
my @cut = split /\t/, $_;

$_hash->{Title} = $cut[0];

print $cut[0] . "\n";

#$DB->table('Links')->add( $_hash ) or die $GT::SQL::error

}
close(GRAB);