#!/usr/bin/perl
use strict;

print "Enter the Rast Username\n";
my $username = <>;

print "Enter the Rast Password\n";
my $Password = <>;

print "Enter the fasta file Name\n";
my $fasta = <>;

print "Enter the Domain Name\n";
my $domain= <>;

print "Enter Genetic_Code\n";
my $Genetic_code = <> ;


system (qq("svr_submit_RAST_job --user "$username" --passwd "$Password" --fasta "$fasta" --domain "$domain" --genetic_code "$Genetic_code"));