$file = "$ARGV[1]";

open OUT, ">> $file"
        or die "Cannot open file: $!";

@out = `/home/applications/samtools-0.1.7a/samtools view -bS $ARGV[0] 2>&1`;

print OUT @out;

close OUT;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

use autodie;

my $file = $ARGV[1];

open my $out, '>>', $file;

my @out = `/home/applications/samtools-0.1.7a/samtools view -bS $ARGV[0] 2>&1`;

print $out @out;

close $out;