#!/usr/bin/perl -w
use strict;

my $p; #el comptador






    print "entra proteïna a estudiar: ";
    $p= <STDIN>;
    chomp $p;

    print "entra scaffold de la proteïna $p: ";
    my $sca= <STDIN>;
    chomp $sca;

    system ("fastasubseq /home/guillem/$p/$sca/subseq$p 0  120000 > /home/guillem/$p/$sca/subseqforselenos$p");
 


