open my $pipe, "| phylip" or die $!;

print $pipe <<"EOI";
4
6
3
5

1
$filename.fsmi
5
$filename.phb
111
1000
4
$filename.ph
$filename.dst

x
EOI

close $pipe;