Select Code to Download

#!/usr/bin/perl
$|++;
...
}

close( F );

MyFile - C:/users/caleb/desktop/test/testfile.mp3
[dothis:] Piece 1: c0ba18a0db37c7d6c8c4c267355627dd5b98473f 
...
----------------------
[dothis:] Piece 2: d902928543f3e0aa4092534c075957e800a5e3c6 
[dothis:] Piece 3: 1bf32c88a4d6ba89223dfbc680a310c805e54e66