#!/usr/bin/env perl6

try {
    my $fh = open('asdf');
    while ( my $line = $fh.get ) {
        say $line;
    }
    $fh.close;
    
    CATCH {
        say 'Fehler';
    }
}