open INPUT,'<',$out_file or die "Can't open file " . $out_file . "\n$!\n"; #Open for read
    while (<INPUT>)
    {
        my $name = $connect->quote($_);
        next;
    }