markostamcar

## drcsconv.pl
#!/usr/bin/env perl

use strict;
use warnings;

if ($#ARGV != 0) {
    print "ussage: drcsconv.pl <filename>.";
    exit 0;
}
my $file = $ARGV[0];
	#!/usr/bin/env perl

	use strict;
	use warnings;

	if ($#ARGV != 0) {
	print "ussage: drcsconv.pl <filename>.";
	exit 0;
	}
	my $file = $ARGV[0];