sub chase_links {
    my ( $file ) = @_;
    
    while ( defined ( my $link = readlink $file ) ) {
        print "LINK: $file";
        $file = $link;
    }
    print "NOT LINK: $file";
}