going to setup here

.gitignore

@@ -0,0 +1,2 @@
+raidz1-*.raw
+mount-point/

.vstags

@@ -0,0 +1,10 @@
+!_TAG_FILE_FORMAT	2	/extended format; --format=1 will not append ;" to lines/
+!_TAG_FILE_SORTED	1	/0=unsorted, 1=sorted, 2=foldcase/
+!_TAG_PROGRAM_AUTHOR	Darren Hiebert	/dhiebert@users.sourceforge.net/
+!_TAG_PROGRAM_NAME	Exuberant Ctags	//
+!_TAG_PROGRAM_URL	http://ctags.sourceforge.net	/official site/
+!_TAG_PROGRAM_VERSION	5.9~svn20110310	//
+display_help	bin/bct.pl	30;"	s
+get_facl	bin/bct.pl	41;"	s
+get_times	bin/bct.pl	44;"	s
+get_xattr	bin/bct.pl	47;"	s

bin/bct.pl

@@ -7,6 +7,7 @@ use v5.38.0;
 use Path::Tiny;
 use Linux::ACL;
 use File::ExtAttr;
+use Data::Dumper;
 
 use Getopt::Long;
 use builtin qw/true false/;
@@ -26,10 +27,30 @@ GetOptions(
   "h|help"    => \&display_help,
 );
 
-sub display_help {
+sub display_help() {
   print <DATA>;
+  exit();
 }
 
+if (@ARGV != 2) {
+  my $n = scalar @ARGV;
+  print STDERR "Incorrect number of file arguments.  Got $n, expected 2\n\n";
+  display_help();
+}
+
+sub get_facl($file) {
+}
+
+sub get_times($file) {
+}
+
+sub get_xattr($file) {
+  my @xattr = File::ExtAttr::listfattr($file);
+  print Dumper(\@xattr);
+}
+
+my $file = path("test");
+get_xattr($file);
 
 __DATA__
 block-cloning-tool