#!/usr/bin/perl -w

use strict;

my @tables = qw(survey_takers survey_responses survey_data);

print "Ready to drop DB...";
<STDIN>;

foreach my $table (@tables)
{
  print "------ CREATE TABLE $table\n";
  system("psql -U falcon falcon < ${table}.sql");
  print "------ END OF CREATE TABLE $table\n";
}