Select Code to Download

sub delete_comments_from_file {
    my( $path ) = @_;
    eval "local @ARGV=qw{ -pie s/#.*//; $path };";
}