I think that BioPerl is clearly functional at gaoll@lab005. See below:
##################################################################
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ ls -rtl
total 12
-rw-r--r--. 1 gaoll bradeenj 276 Jul 5 00:03 test.fastq
-rwxr-xr-x. 1 gaoll bradeenj 541 Jul 5 00:34
convert.fq.batch.pl-rw-r--r--. 1 gaoll bradeenj 141 Jul 5 11:38 test.fastq.convert.j
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ cat test.fastq.convert.j
#PBS -l mem=2gb,walltime=72:00:00
#PBS -q lab
perl /home/msi/gaoll/bin/
convert.fq.pl /home/msi/gaoll/unix.perl.c/perl/convert.fq/test.fastq
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ perl /home/msi/gaoll/bin/
convert.fq.pl /home/msi/gaoll/unix.perl.c/perl/convert.fq/test.fastq
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ ls -rtl
total 16
-rw-r--r--. 1 gaoll bradeenj 276 Jul 5 00:03 test.fastq
-rwxr-xr-x. 1 gaoll bradeenj 541 Jul 5 00:34
convert.fq.batch.pl-rw-r--r--. 1 gaoll bradeenj 141 Jul 5 11:38 test.fastq.convert.j
-rw-r--r--. 1 gaoll bradeenj 276 Jul 5 11:45 test.fastq.converted
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ cat test.fastq
@HWI-ST261:1:1:1199:2075#ACTTGA/1
...C...................TA........................C
+
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
@HWI-ST261:1:1:1043:2097#ACTTGA/1
........................A.........................
+
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ cat test.fastq.converted
@HWI-ST261:1:1:1199:2075#ACTTGA/1
...C...................TA........................C
+
##################################################
@HWI-ST261:1:1:1043:2097#ACTTGA/1
........................A.........................
+
##################################################
############################################################################################
gaoll@lab005: ~/unix.perl.c/perl/convert.fq$ cat ~/bin/
convert.fq.pl#!/home/msi/gaoll/perl5/perlbrew/build/perl-5.12.3/perl -w
use strict;
use Bio::SeqIO;
my $file=shift @ARGV;
my $seqio_in=Bio::SeqIO->new(-file => "< $file", -format=>'fastq', -variant=>'illumina', -alphabet=>'dna');
my $seqio_out=Bio::SeqIO->new(-file=>"> $file.converted",-format=>'fastq',-variant=>'sanger',-alphabet=>'dna');
while (my $seq=$seqio_in->next_seq){
$seqio_out->write_seq($seq);
}