open my $wave,    '>', 'Wave' or die "Can't open $wave: $!";