package bioMan;

use strict;
use warnings;

sub getFileData(){

#variables
my @data = ();

(my $datafile, $chomp) = @_;

open FH, $datafile or die "Can't open $datafile: $!\n";
@data = <FH>;
chomp(@data) if $chomp;

close FH or die "Can't close $datafile: $!\n";

wantarray ? return @data : return(join '', @data);
}
1;

##</code><code>##

@seqarray = bioMan::getFileData($in, 1);

##</code><code>##

sub getFileData($$){