Select Code to Download

#! perl -slw
use strict;
...
Win32::Sleep 100 until $running;
Win32::Sleep 100 while $running;

## Crude fasta load--Expects 1 sequence per file
    open my $fh, '<', $path or croak "$path : $!\n";
    <$fh>; ## discard header
    ( my $sequence = do{ local $/; <$fh> } ) =~ s[\s+][]g;
    close $fh;