1 2 3 4 5 6 7 8 9 10 11 12 13 14
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 ;) }