#!/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;