#!/usr/bin/perl

use strict;
use warnings;
use Bio::Perl;

print "Bitte geben Sie einen Dateinamen ein: ";
chomp( my $file = <STDIN> );

die "Can't read file $file" unless -r $file;

my $sequence = do{ local( @ARGV,$/ ) = $file; <> };

my $amino_acids = translate_as_string( $sequence );
print "Proteinstrang: ", $amino_acids, "\n";