use autodie;
open my $file , '<', $options{c};
my @files = <$file>;
close $file;