#!/usr/bin/perl

use DBI;
use Data::Dumper;
use strict; use warnings;
use CGI;



my $fields;
my $q= CGI->new();




# Connect to the database

my $dbh = DBI->connect('DBI:mysql:mirnas', 'root', 'pass')
    or die "Couldn't open database: $DBI::errstr; stopped";
    
my $filename = $ARGV[0];
my $table_name = $ARGV[1];
open(INPUT, $filename);

#getting the column names from the text file
my $line = <INPUT>;

	chomp($line);
	my @fields = split('\t', $line);
	
	foreach $fields(@fields){
		print "$fields\n";

	}
	
$sth = $dbh->prepare("create table $tablename );
		$sth->execute;