boxprint("
My program v. 1.0

Parameters:
FASTA-filename Coverage ReadLength");


sub boxprint { 
 # Receive input: its a multiline string
 $message = $_[0];
 
 @lines = split( /\n/, $message);
 # Now type here how to print each line ;)
}