Perl, sometimes continuing to break my brain since 1994

stat_and_lstat_and_underscores_oh_my.pl

#!/usr/bin/perl

use strict;
use warnings;
use feature qw(say);
use File::Path qw'remove_tree';

system 'mkdir -p foo/bar/baz';
system 'cd foo && ln -s bar quux';

say "foo/quux is a directory! Trust -d!" if -d 'foo/quux';
say "foo/quux is also a symlink! Trust -l!" if -l 'foo/quux';

my @res = stat 'foo/quux';
say "foo/quux is still a directory! Trust stat!" if -d _;
say "foo/quux is not a directory! Trust stat!" if ! -d _;

@res = lstat 'foo/quux';
say "foo/quux is still a directory! Trust lstat!" if -d _;
say "foo/quux is not a directory! Trust lstat!" if ! -d _;


say "File::Path::remove_tree is perfectly safe and understandable! Trust me!";
remove_tree('foo', {verbose => 1});

say "Who do you trust now?";